home *** CD-ROM | disk | FTP | other *** search
/ The Canadian & World Encyclopedia 1998 / The Canadian & World Encyclopedia 1998 - Disc 2.iso / mac / prime_CD / pb / PROFILE.DIR / 00047_Script_~imps score script < prev    next >
Text File  |  1997-07-29  |  1KB  |  22 lines
  1. global improlloverlist,imp_it,profimps_rolls
  2. on exitFrame
  3.   set imp_it = TRUE
  4.   set_puppets([24,29],false)
  5.   puppetsprite 23, true
  6.   see_sprite([1,2,4,9,10,11,12,13,15,16,17,18,19,20,21,22,23,24,25,27,28,29],TRUE)
  7.   
  8.   -- do field "01,im"
  9.   --  domacimp
  10.   
  11. --  set_cursors(profimps_rolls)
  12.   
  13.   set omv = the mouseh
  14.   repeat while the mouseh = omv
  15.   end repeat
  16. end
  17.  
  18.  
  19. on domacimp
  20.   global improlloverlist
  21.   set impRolloverList = ["doimp(1)": rect(53, 52, 188, 148), "doimp(2)": rect(185, 52, 324, 147), "doimp(3)": rect(325, 52, 467, 152), "doimp(4)": rect(460, 52, 600, 152), "doimp(5)": rect(53, 151, 195, 248), "doimp(6)": rect(187, 152, 329, 251), "doimp(7)": rect(323, 148, 467, 251), "doimp(8)": rect(463, 148, 600, 249), "doimp(9)": rect(53, 251, 192, 347), "doimp(10)": rect(189, 250, 331, 349), "doimp(11)": rect(325, 250, 468, 350), "doimp(12)": rect(464, 250, 600, 348), "doimp(13)": rect(49, 345, 191, 446), "doimp(14)": rect(189, 350, 335, 446), "doimp(15)": rect(323, 348, 467, 446), "doimp(16)": rect(462, 345, 600, 446)]
  22. end